Screen Effects

home *** CD-ROM | disk | FTP | other *** search

/ Screen Effects / Screen Effects.iso / programs / wallpeep / wallpeep.frm (.txt) < prev next >

Wrap

Visual Basic Form | 1994-04-27 | 8.6 KB | 218 lines

Form1 WallPeeper XXXXX XXXXX XXXXX XXXXX XXXXX XXXXX XXXXX XXXXX Form1% Picture2 ResizableChecked Resizable MS Sans Serif Timer1 Picture1 File2 *.bmp;*.ico;*.wmf;*.rle;*.dib TileChecked MS Sans Serif Command1 Set as Wallpaper Command2 Refresh List ShowAllFiles Show all usable files on C MS Sans Serif List1 File1 *.bmp;*.ico;*.wmf;*.rle;*.dib Drive1 Label1 FileMenu FileExit E&xit FileSep FileAbout &About WallPeeper... GetVersion GetWindowsDirectory SystemParametersInfo wAction wParam lParamS fWinIni6 SPI_SETDESKWALLPAPER SPIF_UPDATEINIFILE] SPIF_SENDWININICHANGE Drive1_Change\ List1 ListCount ClearListBox Form1 Check14 Caption Drive19 Drivek Value False Dir1K Screen> MousePointerL FillList Dir1_Change File1 File1_Click ShowPicture FileName WallPaper@ Form_Load. WinVer/ WinVersion Form2m Visible ListIndex~ Focus7 Timer1p Intervalk FileExit_Click Check1_Click ListI Enabled SelectInFIleList ForeColor Command2 Dirs" DirNameh FindItema List1_Click GetNameAndDirR FName DName Form_Unload Cancel FileAbout_Click Form3 List1_DblClick List1DClick File1_DblClick File1DClick$ Timer1_Timer GetActiveWindowe Command1_Click WinPath BmpFile Picture1 Image Form_Resize Command2_Click Dir1_Click Picture1_Click Label1_Clickw olddrive Drive1_GotFocus SavedDrive Desktop Pattern WINDOWS WALLVIEW GridGranularity IconSpacing TileWallPaper WriteProfileStringX lpAppNameq lpKeyName{ lpString* Check2 WindowStateI Check2_Clicku Loading GetProfileString lpDefault lpReturnedStringY nSize lpRS SP1Pos bgCol6 BackColor GetBackgroundColor OldMousePointer Check3_Clickc Check3g LBWidth LBHeight PositionOutline Picture SourcePic DestinationPic dwRop BorderStyle ShowAllFiles_Click ShowAllFiles TileChecked_Click TileChecked ResizableChecked ResizableChecked_Click ScaleWidth ScaleHeight Width Height AutoSize scalemode AutoRedraw Picture2 Window OldMouseP Kernel kernel KernelK update Win.ini Const update Win.ini and tell everyone Command1_Click WALLPEEP.BMP [Desktop]= Pattern = (None) Wallpaper=C:\WINDOWS\WALLVIEW.BMP GridGranularity = 0S IconSpacing = 93 TileWallPaper = 1 Desktop TileWallPaper Desktop TileWallPaper Command2_Click Dir1_Change Dir1_Click Drive1_Change Error reading drive Drive1_GotFocus File1_Click File1_DblClick FileAbout_Click FileExit_Click Form_Load This program requires Windows 3.1. Form_Resize Command1.Top = Scaleheight - Command1.height - 6 Command1.Left = Scalewidth - Command1.width - 66 minimized Form_Unload List1_Click List1_DblClick PositionOutline ResizableChecked_Click Form2.Enabled = Falsee Form2.Enabled = True SelectInFIleList ShowAllFiles_Click For I = 1 To List1.ListCount If T$ = List1.List(I - 1) Then. List1.ListIndex = I - 1 Exit Fors End Ifo Next I TileChecked_Click Timer1_Timer